Esta es la distribución geográfica de precios
En testing
---
title: "Oservatorio test"
output:
flexdashboard::flex_dashboard:
storyboard: true
social: menu
source: embed
---
```{r setup, include=FALSE}
library(flexdashboard)
```
### Distribución de precios
```{r}
library(leaflet)
library(sf)
library(tidyverse)
upla<-read_sf("upla/UPla.shp")
dta_2021<-readRDS("median.Rds")
pal <- colorNumeric(
palette = "Reds",
domain = dta_2021$median)
upla<-left_join(upla,dta_2021)
#Add labels
leaflet(upla) %>%
addTiles() %>%
addPolygons(label = paste(upla$UPlNombre,"Median Price=",upla$median, "Number of Properties=",upla$n),
stroke = FALSE, smoothFactor = 0.2, fillOpacity = 1,
color = ~pal(median))
```
***
Esta es la distribución geográfica de precios
### evolucion temporal
```{r}
library(dygraphs)
dygraph(nhtemp, main = "New Haven Temperatures") %>%
dyRangeSelector(dateWindow = c("1920-01-01", "1960-01-01"))
```
***
En testing